home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM B4 / PD-ROM B4.iso / Entertainment / Strategy / Robots / RoboWar / More Robots / Existentialist / Existentialist next >
Text File  |  1990-05-28  |  2KB  |  27 lines

  1. {Existentialist - Life has no meaning what is given it through our actions.  (Life is like an onion ring, which also has no meaning except that which we chose to give it.)
  2. Matthew Sakai (a.k.a. The Great Prophet Alwyn)
  3. VII a.d. Kal. May anno domini MCMXC (4/25/90)}
  4.  
  5. start:y 275 > lft if 5 speedx' store 
  6. right: range shoot if x 274 > rd if collision back if right jump
  7. up: range shoot if y 26 < ur if collision back if up jump
  8. lft: -5 speedx' store 270 aim' store
  9. left: range shoot if x 26 < lu if collision back if left jump
  10. down: range shoot if y 274 > dl if collision back if down jump
  11. ur: -4 speedy' store 1 speedx' store range shoot if collision back if -2 speedy' store 3 speedx' store range shoot if collision back if 0 speedy' store 5 speedx' store range shoot if collision back if 90 aim' store drop right jump
  12. lu: -4 speedx' store -1 speedy' store range shoot if collision back if -2 speedx' store -3 speedy' store range shoot if collision back if 0 speedx' store -5 speedy' store range shoot if collision back if 0 aim' store drop up jump
  13. dl: 4 speedy' store -1 speedx' store range shoot if collision back if 2 speedy' store -3 speedx' store range shoot if collision back if 0 speedy' store -5 speedx' store range shoot if collision back if 270 aim' store drop a 1 + a' store a 2 > next if left jump
  14. rd: 4 speedx' store 1 speedy' store range shoot if collision back if 2 speedx' store 3 speedy' store range shoot if collision back if 0 speedx' store 5 speedy' store range shoot if collision back if 180 aim' store drop down jump
  15. back: 5 dup swap drop drop range hi if aim 50 + aim' store collision back if return
  16. hi: collision hit if drop return
  17. hit:50 missile' store drop drop collision back if return
  18. shoot: energy missile' store return
  19. next: drop random aim' store -2 speedx' store -3 speedy' store
  20. main: x 275 > left1 if x 25 < right1 if y 275 > up1 if y 25 < down1 if collision kill if aim 17 + aim' store range 0 > attack if main jump
  21. kill: range 0 > attack if aim 50 + aim' store collision not ec if kill jump
  22. ec: drop main jump
  23. attack: 50 missile' store 50 missile' store return
  24. up1: -3 speedy' store return
  25. left1: -2 speedx' store return
  26. down1: 3 speedy' store return
  27. right1: 2 speedx' store return